diff --git a/New-bADpasswordLists-Common.ps1 b/New-bADpasswordLists-Common.ps1
index 276088c..e6eb8df 100644
--- a/New-bADpasswordLists-Common.ps1
+++ b/New-bADpasswordLists-Common.ps1
@@ -8,7 +8,12 @@
 
 $locale = "common"
 
-$years = (0..9 | foreach{ $_ }) + (00..99 | foreach { $_.ToString("00") }) + (1950..2021 | foreach { $_.ToString() }) + @("123", "1234", "12345")
+$current_year = (Get-Date).Year
+$years = @(0..9 | ForEach-Object { $_.ToString() }) +
+         @(0..99 | ForEach-Object { $_.ToString("00") }) +
+         @(1950..$current_year | ForEach-Object { $_.ToString() }) +
+         @("123","1234","12345")
+
 $permutations = @("", ".", "!", "?", "=", ".!", "..", "!!", "!.", "?.", ".=")
 
 $strings = @("Test","Qwerty","Qwert","Qwer","Password","Passw0rd","Pa`$`$word","Pa`$`$w0rd","Pa`$`$W0rd","P@ssword","P@ssw0rd","Welcome","Start","End")
@@ -24,7 +29,7 @@ foreach ($string in $strings) {
     $weak.Add("$string") > $null
     $weak.Add("$($string.ToLower())") > $null
     $weak.Add("$($string.ToUpper())") > $null
-    
+
     foreach ($year in $years) {
         foreach ($permutation in $permutations) {
             $weak.Add("$string$year$permutation") > $null
@@ -34,4 +39,4 @@ foreach ($string in $strings) {
     }
 }
 
-$weak | Set-Content ".\$filename"
\ No newline at end of file
+$weak | Set-Content ".\$filename"
diff --git a/New-bADpasswordLists-Custom.ps1 b/New-bADpasswordLists-Custom.ps1
index 5a55501..4321353 100644
--- a/New-bADpasswordLists-Custom.ps1
+++ b/New-bADpasswordLists-Custom.ps1
@@ -6,7 +6,12 @@
 # - https://twitter.com/improsec
 # - https://www.facebook.com/improsec
 
-$years = (0..9 | foreach{ $_ }) + (00..99 | foreach { $_.ToString("00") }) + (1950..2021 | foreach { $_.ToString() })
+$current_year = (Get-Date).Year
+$years = @(0..9 | ForEach-Object { $_.ToString() }) +
+         @(0..99 | ForEach-Object { $_.ToString("00") }) +
+         @(1950..$current_year | ForEach-Object { $_.ToString() }) +
+         @("123","1234","12345")
+
 $permutations = @("", ".", "!", "?", "=", ".!", "..", "!!", "!.", "?.", ".=")
 
 $strings = @('company name')
@@ -22,7 +27,7 @@ foreach ($string in $strings) {
     $weak.Add("$string") > $null
     $weak.Add("$($string.ToLower())") > $null
     $weak.Add("$($string.ToUpper())") > $null
-    
+
     foreach ($year in $years) {
         foreach ($permutation in $permutations) {
             $weak.Add("$string$year$permutation") > $null
diff --git a/New-bADpasswordLists-Danish.ps1 b/New-bADpasswordLists-Danish.ps1
index 429313f..9ee2eda 100644
--- a/New-bADpasswordLists-Danish.ps1
+++ b/New-bADpasswordLists-Danish.ps1
@@ -8,7 +8,12 @@
 
 $locale = "da"
 
-$years = (0..9 | foreach{ $_ }) + (00..99 | foreach { $_.ToString("00") }) + (1950..2021 | foreach { $_.ToString() }) + @("123", "1234", "12345")
+$current_year = (Get-Date).Year
+$years = @(0..9 | ForEach-Object { $_.ToString() }) +
+         @(0..99 | ForEach-Object { $_.ToString("00") }) +
+         @(1950..$current_year | ForEach-Object { $_.ToString() }) +
+         @("123","1234","12345")
+
 $permutations = @("", ".", "!", "?", "=", ".!", "..", "!!", "!.", "?.", ".=")
 
 $strings = @("Velkommen","Farvel","Vinter",[Regex]::Unescape("For\u00e5r"),"Foraar","Sommer",[Regex]::Unescape("Efter\u00e5r"),"Efteraar","Januar","Februar","Marts","April","Maj","Juni","Juli","August","September","Oktober","November","December","Mandag","Tirsdag","Onsdag","Torsdag","Fredag",[Regex]::Unescape("L\u00f8rdag"),"Loerdag",[Regex]::Unescape("S\u00f8ndag"),"Soendag")
@@ -24,7 +29,7 @@ foreach ($string in $strings) {
     $weak.Add("$string") > $null
     $weak.Add("$($string.ToLower())") > $null
     $weak.Add("$($string.ToUpper())") > $null
-    
+
     foreach ($year in $years) {
         foreach ($permutation in $permutations) {
             $weak.Add("$string$year$permutation") > $null
@@ -34,4 +39,4 @@ foreach ($string in $strings) {
     }
 }
 
-$weak | Set-Content ".\$filename" -Encoding "UTF8"
\ No newline at end of file
+$weak | Set-Content ".\$filename" -Encoding "UTF8"
diff --git a/New-bADpasswordLists-English.ps1 b/New-bADpasswordLists-English.ps1
index 8193b69..062b213 100644
--- a/New-bADpasswordLists-English.ps1
+++ b/New-bADpasswordLists-English.ps1
@@ -8,7 +8,12 @@
 
 $locale = "en"
 
-$years = (0..9 | foreach{ $_ }) + (00..99 | foreach { $_.ToString("00") }) + (1950..2021 | foreach { $_.ToString() }) + @("123", "1234", "12345")
+$current_year = (Get-Date).Year
+$years = @(0..9 | ForEach-Object { $_.ToString() }) +
+         @(0..99 | ForEach-Object { $_.ToString("00") }) +
+         @(1950..$current_year | ForEach-Object { $_.ToString() }) +
+         @("123","1234","12345")
+
 $permutations = @("", ".", "!", "?", "=", ".!", "..", "!!", "!.", "?.", ".=")
 
 $strings = @("Welcome","Goodbye","Winter","Spring","Summer","Autumn","January","February","March","April","May","June","July","August","September","October","November","December","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")
@@ -24,7 +29,7 @@ foreach ($string in $strings) {
     $weak.Add("$string") > $null
     $weak.Add("$($string.ToLower())") > $null
     $weak.Add("$($string.ToUpper())") > $null
-    
+
     foreach ($year in $years) {
         foreach ($permutation in $permutations) {
             $weak.Add("$string$year$permutation") > $null
@@ -34,4 +39,4 @@ foreach ($string in $strings) {
     }
 }
 
-$weak | Set-Content ".\$filename"
\ No newline at end of file
+$weak | Set-Content ".\$filename"